home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / b / vmsins.old < prev    next >
Encoding:
Text File  |  1988-08-16  |  2.3 KB  |  82 lines
  1. $ ON CONTROL_Y THEN GOTO DONE
  2. $ SET PROT=(S:RWED,G:RWED,O:RWED,W:RE)/DEFAULT
  3. $ SYSDISK = F$LOGICAL("SYS$DISK")
  4. $ DEFUIC:='F$USER()
  5. $ EXIT_MESSAGE = " Kermit-32 installation abnormally terminated."
  6. $ SET NOON
  7. $ WRITE SYS$OUTPUT " "
  8. $ WRITE SYS$OUTPUT "                Kermit-32 Installation Procedure"
  9. $ WRITE SYS$OUTPUT " "
  10. $
  11. $ INQUIRE DO_INSTALL " Rebuild from sources? (YES or NO) "
  12. $ IF DO_INSTALL .EQS. "" THEN GOTO INS
  13. $ IF .NOT. DO_INSTALL THEN GOTO INS
  14. $
  15. $LANG_QUESTION:
  16. $ INQUIRE LANG_TYPE " Which version? (BLISS or MACRO) "
  17. $ IF LANG_TYPE .EQS. "" THEN GOTO LANG_ERR
  18. $ IF LANG_TYPE .EQS. "BLISS" .OR. LANG_TYPE .EQS. "bliss" THEN GOTO INS
  19. $ IF LANG_TYPE .EQS. "MACRO" .OR. LANG_TYPE .EQS. "macro" THEN GOTO INS
  20. $
  21. $LANG_ERR:
  22. $ WRITE SYS$OUTPUT " Respond with ""BLISS"" or ""MACRO"""
  23. $ GOTO LANG_QUESTION
  24. $
  25. $INS:
  26. $ INQUIRE DO_INS " Install Kermit-32 on the system?"
  27. $
  28. $ IF DO_INS .EQS. "" THEN GOTO INS
  29. $ IF LANG_TYPE .EQS. "BLISS" .OR. LANG_TYPE .EQS. "bliss" THEN GOTO BLI
  30. $ IF LANG_TYPE .EQS. "MACRO" .OR. LANG_TYPE .EQS. "macro" THEN GOTO MAR
  31. $
  32. $BLI:
  33. $ WRITE SYS$OUTPUT " This may take some time"
  34. $ BLISS KERMIT.BLI/OBJECT=KERMIT
  35. $ BLISS KERMSG.BLI/OBJECT=KERMSG
  36. $ BLISS KERGLB.BLI/OBJECT=KERGLB
  37. $ BLISS KERTRM.BLI/OBJECT=KERTRM
  38. $ BLISS KERFIL.BLI/OBJECT=KERFIL
  39. $ BLISS KERTT.BLI/OBJECT=KERTT
  40. $ BLISS KERSYS.BLI/OBJECT=KERSYS
  41. $
  42. $ GOTO BLDCOM
  43. $
  44. $MAR:
  45. $ WRITE SYS$OUTPUT " This may take some time"
  46. $ MACRO KERMIT.MAR/OBJECT=KERMIT
  47. $ MACRO KERMSG.MAR/OBJECT=KERMSG
  48. $ MACRO KERGLB.MAR/OBJECT=KERGLB
  49. $ MACRO KERTRM.MAR/OBJECT=KERTRM
  50. $ MACRO KERFIL.MAR/OBJECT=KERFIL
  51. $ MACRO KERTT.MAR/OBJECT=KERTT
  52. $ MACRO KERSYS.MAR/OBJECT=KERSYS
  53. $
  54. $BLDCOM:
  55. $ MACRO KERGEN.MAR/OBJECT=KERGEN.OBJ
  56. $ MESSAGE KERERR.MSG
  57. $ LINK KERMIT, KERMSG, KERGLB, KERTRM, KERFIL, KERTT, KERERR, KERSYS, KERGEN
  58. $
  59. $ IF .NOT. DO_INS THEN GOTO SUCCESS
  60. $
  61. $
  62. $ SET UIC [001,004]
  63. $ COPY KERMIT.EXE SYS$SYSTEM:KERMIT.EXE
  64. $ LIBRARY/HELP/DELETE=KERMIT SYS$HELP:HELPLIB.HLB
  65. $ RUNOFF KERMIT.RNH/VAR=SYSTEM
  66. $ LIBRARY/INSERT/HELP SYS$HELP:HELPLIB.HLB KERMIT.HLP
  67. $ RUNOFF KERMIT.RNH
  68. $ LIBRARY/CREATE/HELP SYS$HELP:KERMIT.HLB KERMIT.HLP
  69. $
  70. $SUCCESS:
  71. $ EXIT_MESSAGE = " Kermit-32 installation is complete."
  72. $
  73. $DONE:
  74. $ ON CONTROL_Y THEN GOTO DONE3
  75. $ SET NOON
  76. $
  77. $DONE3:
  78. $ IF "''DEFUIC'" .NES. "" THEN SET UIC 'DEFUIC'
  79. $ WRITE SYS$OUTPUT EXIT_MESSAGE
  80. $ SET ON
  81. $ EXIT
  82.